home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / music / midipy.zip / MIDIPLAY.TBK (.txt) < prev    next >
Asymetrix ToolBook File  |  1993-06-04  |  80KB  |  1,623 lines

  1. System
  2. orig_list(1)
  3. Elvira
  4. DIPlay
  5.  Concerto #6
  6. Funky Beat
  7. orig_list(4)
  8. orig_list(2)
  9. orig_list(7)
  10. Comical 4
  11. orig_list(3)
  12. Action 4
  13. Arial
  14. orig_list(8)
  15. Times New Roman
  16. Arial
  17. Times New Roman
  18. Action 3
  19. Canyon
  20. orig_list(5)
  21. Canyon
  22. orig_list(6)
  23. DixieLand
  24. orig_list(9)
  25. orig_list(10)
  26. Jupiter
  27. orig_list(11)
  28. orig_list(12)
  29. Nutcracker Suite
  30. orig_list(13)
  31. Party
  32. orig_list(14)
  33. Sweet Drums
  34. orig_list(15)
  35. The big city
  36. orig_list(16)
  37. The BIG Piano
  38. orig_list(17)
  39. orig_list(18)
  40. DIPlay
  41. Bluesy 2
  42. Action 3
  43. Dance With Me
  44. Maple Leaf Rag
  45. DIPlay
  46. The BIG Piano
  47. DIPlay
  48. Anitras
  49. Clarinet Polka
  50. DIPlay
  51. DIPlay
  52. MIDIPlay
  53. ourree
  54. omOvE
  55. DIPlay
  56. DIPlay
  57. ourree
  58. System
  59. "6"`&
  60. -D-l-
  61. 6`:@<
  62. C\LBU
  63. l2rRw
  64. xPyxy
  65. zn{:|
  66. warning
  67. 4warningtext
  68. init 
  69. dlgInit 
  70. setValue(
  71. ,"static label",
  72. --DLL function
  73. retValue 
  74. dialog(dlgBox 
  75. getValue(
  76. ., "")
  77. buttonUp
  78. buttonUp
  79. dlgInit
  80. static label
  81. setValue
  82. dlgBox
  83. dialog
  84. retValue
  85. warningtext
  86. dlgInit
  87. ,h56,
  88. static label,s58,
  89. ,b59,FALSE
  90. dlgBox
  91. 524480,3,18,23,254,69,,,MIDIPlay,8,Helv,,5.75,12.92,18.29,19.69,56,1342177283,130,comment,0,label,30.02,18.95,220.11,10.99,58,1342177280,130,,0,,91.47,40.86,76.50,14.32,59,1342242816,128,OK,0
  92. ctrlID
  93. playlistbox
  94. 4sender    
  95. init 
  96. dlgInit 
  97. setValue(
  98. ,"listbox playlist",
  99. --DLL function
  100. retValue 
  101. dialog(dlgBox 
  102. getValue(
  103. Bokbutton") 
  104. T,"nlistbox 
  105. temper
  106. + 1 & "," 
  107. temp2 
  108. selectedTextlines 
  109. videos 
  110. buttonUp
  111. buttonUp
  112. dlgInit
  113. listbox playlist
  114. setValue
  115. dlgBox
  116. dialog
  117. button okbutton
  118. getValue
  119. nlistbox playlist
  120. getValue
  121. videos
  122. temp2
  123. temper
  124. retValue
  125. sender
  126.     dlgInit
  127. ,s50,Please select one or more MIDI songs for playback:
  128. listbox playlist,l51,
  129. button okbutton,b52,TRUE
  130. button cancelbutton,b53,FALSE
  131. ,s54,To select multiple MIDI songs, hold CTRL key down while clicking with the left mouse button.
  132. ,s55,Hold the Shift key down while clicking with the left mouse button to extend a selection.
  133. ,s60,Please select one or more MIDI songs for playback:
  134. dlgBox
  135. 524480,7,55,1,176,152,,,MIDIPlay Playlist,8,Helv,,3.73,4.55,171.73,11.45,50,1342177280,130,Please select one or more MIDI songs for playback:,0,playlist,3.73,16.45,166.13,64.33,51,1352730625,131,,0,okbutton,21.60,124.14,50.86,12.31,52,1342242817,128,&OK,0,cancelbutton,98.32,124.14,50.86,12.31,53,1342242816,128,&Cancel,0,,3.73,76.80,164.27,18.09,54,1342177280,130,To select multiple MIDI songs,0,,3.73,100.47,162.59,20.10,55,1342177280,130,Hold the Shift key down while clicking with the left mouse button to extend a selection.,0,,0.30,95.63,176.30,0.98,60,1350565888,130,Please select one or more MIDI songs for playback:,0
  136. ctrlID
  137. videodescription
  138. 4nameoffile,filenameval
  139. init 
  140. dlgInit 
  141. setValue(
  142. ,"static midifilename",
  143. --DLL function
  144. retValue 
  145. dialog(dlgBox 
  146. getValue(
  147. Bokbutton")
  148. viddes")
  149. buttonUp
  150. buttonUp
  151. dlgInit
  152. static midifilename
  153. setValue
  154. dlgBox
  155. dialog
  156. button okbutton
  157. getValue
  158. edit viddes
  159. getValue
  160. cancel
  161. retValue
  162. nameoffile
  163. filenameval
  164. dlgInit
  165. ,s50,Please enter a description for this MIDI file.
  166. edit viddes,e51,
  167. button okbutton,b52,TRUE
  168. ,s54,MIDI File Name:
  169. static midifilename,s55,
  170. button cancelbutton,b56,FALSE
  171. dlgBox
  172. 524480,6,62,12,155,96,,,MIDI Description,8,Helv,,3.54,31.38,147.50,11.45,50,1342177280,130,Please enter a description for this MIDI file.,0,viddes,3.54,43.45,100.80,13.17,51,1350631424,129,,0,okbutton,24.08,65.56,37.33,12.31,52,1342242817,128,OK,0,,3.58,2.71,63.47,11.45,54,1342177280,130,MIDI File Name:,0,midifilename,1.68,15.30,138.17,11.45,55,1342177280,130,,0,cancelbutton,91.31,65.03,37.33,12.31,56,1342242816,128,Cancel,0
  173. ctrlID
  174. selections
  175. 4selects
  176. init 
  177. dlgInit 
  178. setValue(
  179. ,"listbox selections",
  180. --DLL function
  181. retValue 
  182. dialog(dlgBox 
  183. getValue(
  184. ., "")
  185. tbkmci("status MIDIFile mode","")
  186. = "stopped"
  187. 3play 
  188. buttonUp
  189. buttonUp
  190. dlgInit
  191. listbox selections
  192. setValue
  193. dlgBox
  194. dialog
  195. status MIDIFile mode
  196. tbkmci
  197. stopped
  198. play MIDIFile
  199. tbkmci
  200. retValue
  201. selects
  202. dlgInit
  203. ,g91,
  204. listbox selections,l53,
  205. ,b60,FALSE
  206. dlgBox
  207. 524480,3,78,2,120,140,,,Current Selections,8,Helv,,10.78,7.18,101.79,100.51,91,1342177287,128,,0,selections,9.33,8.57,100.80,96.66,53,1352728577,131,,0,,33.60,113.11,50.86,12.31,60,1342242816,128,Close,0
  208. ctrlID
  209. dupdes
  210. init 
  211. dlgInit 
  212. setValue(
  213. ,"","")
  214. --DLL function
  215. retValue 
  216. dialog(dlgBox 
  217. getValue(
  218. ., "")
  219. buttonUp
  220. buttonUp
  221. dlgInit
  222. dlgBox
  223. dialog
  224. retValue
  225. dlgInit
  226. ,h56,
  227. ,s57,You have entered a description which has already been used.  Please re-enter a new description for this MIDI file.
  228. ,b58,FALSE
  229. dlgBox
  230. 524480,3,55,20,193,73,,,Duplicate Decription,8,Helv,,7.47,16.74,18.29,19.69,56,1342177283,130,stop,0,,35.47,12.72,138.13,28.14,57,1342177280,130,You have entered a description which has already been used.  Please re-enter a new description for this MIDI file.
  231. ,0,,74.67,44.88,50.86,12.31,58,1342242816,128,OK,0
  232. ctrlID
  233. error_message
  234. dlgInit
  235. ,s50,The following MIDI file(s) could not be located on the path(s) indicated.  Either they have been moved to a new location or have been deleted.  In order for MIDIPlay to work properly, the MIDI file(s) must be removed from your list of MIDI files.  Click on the OK button to do this now.  (NOTE: If the MIDI file(s) shown below have simply been moved to a new location, you can add them back to your list.)
  236. button okbutton,b60,TRUE
  237. listbox videolist,l58,
  238. ,h112,
  239. dlgBox
  240. 524480,4,25,0,237,160,,,MIDIPlay,8,Helv,,27.85,4.59,205.33,59.94,50,1342177280,130,The following MIDI file(s) could not be located on the path(s) indicated.  Either they have been moved to a new location or have been deleted.  In order for MIDIPlay to work properly,0,okbutton,65.18,131.24,102.67,12.31,60,1342242817,128,OK,0,videolist,27.85,66.91,201.60,59.86,58,1352728577,131,,0,,3.58,18.67,18.29,19.69,112,1342177283,130,stop,0
  241. ctrlID
  242. warning2
  243. 4warningtext
  244. init 
  245. dlgInit 
  246. setValue(
  247. ,"static label",
  248. --DLL function
  249. retValue 
  250. dialog(dlgBox 
  251. getValue(
  252. Byesbutton")
  253. delete
  254. buttonUp
  255. buttonUp
  256. dlgInit
  257. static label
  258. setValue
  259. dlgBox
  260. dialog
  261. button yesbutton
  262. getValue
  263. retValue
  264. warningtext
  265.  dlgInit
  266. ,h56,
  267. static label,s58,
  268. button yesbutton,b59,TRUE
  269. button nobutton,b76,FALSE
  270. ,s91,Are you sure you want to remove:
  271.  dlgBox
  272. 524480,5,44,18,199,69,,,MIDIPlay,8,Helv,,5.45,9.93,18.29,19.69,56,1342177283,130,question,0,label,33.30,22.36,160.50,10.05,58,1342177280,130,,0,yesbutton,29.68,42.09,50.86,14.03,59,1342242816,128,Yes,0,nobutton,111.85,42.09,50.86,14.07,76,1342242817,128,No,0,,33.30,10.30,134.40,10.05,91,1342177280,130,Are you sure you want to remove:
  273. !ctrlID
  274. playbutton
  275. removeselect
  276. 4tempval
  277. "title" 
  278. temper
  279. init 
  280. dlgInit 
  281. setValue(
  282. ,"listbox removelist",
  283. --DLL function
  284. retValue 
  285. dialog(dlgBox 
  286. getValue(
  287. Bokbutton")
  288. buttonUp
  289. buttonUp
  290. title
  291. dlgInit
  292. listbox removelist
  293. setValue
  294. dlgBox
  295. dialog
  296. button okbutton
  297. getValue
  298. listbox removelist
  299. getValue
  300. retValue
  301. temper
  302. tempval
  303. $dlgInit
  304. button okbutton,b61,TRUE
  305. button cancelbutton,b62,FALSE
  306. listbox removelist,l64,
  307. F&N%dlgBox
  308. 524480,3,71,13,136,146,,,Select MIDI file to remove...,8,Helv,okbutton,13.07,117.58,50.86,12.31,61,1342242816,128,OK,0,cancelbutton,72.80,117.58,50.86,12.31,62,1342242817,128,Cancel,0,removelist,13.07,11.04,110.13,100.51,64,1352728579,131,,0
  309. V&ctrlID
  310. about
  311. init 
  312. dlgInit 
  313. setValue(
  314. ,"","")
  315. --DLL function
  316. retValue 
  317. dialog(dlgBox 
  318. getValue(
  319. ., "")
  320. tbkmci("status MIDIFile mode","")
  321. = "stopped"
  322. 3play 
  323. buttonUp
  324. buttonUp
  325. dlgInit
  326. dlgBox
  327. dialog
  328. status MIDIFile mode
  329. tbkmci
  330. stopped
  331. play MIDIFile
  332. tbkmci
  333. retValue
  334. *d(dlgInit
  335. ,s105,MIDIPlay Version 1.0
  336. ,s106,(C) Copyright 1993
  337. DunsonWare, Co.
  338. All Rights Reserved
  339. ,g111,
  340. ,g115,
  341. ,b116,FALSE
  342. ,h123,
  343. ,s124,DunsonWare, Co.
  344. P.O. Box 771269
  345. Wichita, KS  67277-1269
  346. ,s125,This program may be freely distributed without cost provided that it is in no way changed.  MIDIPlay is shareware and if you find it of value please send a $5.00 check or money order payable to DunsonWare to the following address:
  347. -(*dlgBox
  348. 524480,8,50,2,181,206,,,About MIDIPlay,8,Helv,,56.00,10.50,80.27,11.45,105,1342177280,130,MIDIPlay Version 1.0
  349. ,0,,59.73,34.63,84.00,46.24,106,1342177280,130,(C) Copyright 1993
  350. DunsonWare,0,,48.53,4.47,87.73,18.09,111,1342177287,128,,0,,9.33,82.87,162.40,90.46,115,1342177287,128,,0,,63.47,179.36,50.86,12.31,116,1342242816,128,OK,0,,11.20,6.48,18.29,19.69,123,1342177283,130,comment,0,,54.13,145.19,85.87,24.12,124,1342177280,130,DunsonWare,0,,22.40,90.91,145.60,54.28,125,1342177280,130,This program may be freely distributed without cost provided that it is in no way changed.  MIDIPlay is shareware and if you find it of value please send a $5.00 check or money order payable to DunsonWare to the following address:,0
  351. -ctrlID
  352. .:PHYSSIZE
  353. r/:PHYSSIZE
  354. z0:PHYSSIZE
  355. N>d2(
  356. Z2:PHYSSIZE
  357. 4:PHYSSIZE
  358. removemidi
  359. 27:PHYSSIZE
  360. xyoffset 
  361. item1 
  362. item2 
  363. p2 + 
  364. p2 + 
  365. buttondown
  366. buttonup
  367. buttondown
  368. item2
  369. item1
  370. xyoffset
  371. buttonup
  372. item2
  373. item1
  374. 4275,242
  375. ;:PHYSSIZE
  376. pause
  377. (Pause) 
  378. tbkMCI("
  379. MIDIFile","")
  380. "playsymbol" 
  381. "pausesymbol" 
  382. "Paused" 
  383. "statusfield" 
  384. "Playing" 
  385. tbkMci("
  386. buttonUp
  387. buttonUp
  388. active,unchecked
  389. Pause
  390. pause MIDIFile
  391. tbkMCI
  392. playsymbol
  393. pausesymbol
  394. Paused
  395. statusfield
  396. active,checked
  397. Pause
  398. playsymbol
  399. pausesymbol
  400. Playing
  401. statusfield
  402. play MIDIFile
  403. tbkMci
  404. Pause
  405. ?:PHYSSIZE
  406. wwwxwwwx
  407. xyoffset 
  408. item1 
  409. item2 
  410. p2 + 
  411. p2 + 
  412. buttondown
  413. buttonup
  414. buttondown
  415. item2
  416. item1
  417. xyoffset
  418. buttonup
  419. item2
  420. item1
  421. 6855,390
  422. playit
  423. 4videolist,counter,stopnow,warningtext,midilist2,selection_total
  424. "videos" 
  425. "No Midi files 
  426. playlist. Please 
  427. Add MIDI File..." 
  428. selectedtextLines 
  429. hWnd 
  430. FindWindow(0,"MIDIPlay")
  431. (autominimize) 
  432. ShowWindow(
  433. B"playButton" 
  434. buttonUp
  435. buttondown
  436. buttonUp
  437. videos
  438. buttondown
  439. No Midi files in playlist. Please select Add MIDI File...
  440. buttonUp
  441. warning
  442. videos
  443. videos
  444. buttondown
  445. MIDIPlay
  446. FindWindow
  447. active,checked
  448. ShowWindow
  449. buttonUp
  450. playButton
  451. autominimize
  452. videolist
  453. counter
  454. stopnow
  455. warningtext
  456. midilist2
  457. selection_total
  458. buttondown
  459. .I:PHYSSIZE
  460. xyoffset 
  461. item1 
  462. item2 
  463. p2 + 
  464. p2 + 
  465. buttondown
  466. buttonup
  467. buttondown
  468. item2
  469. item1
  470. xyoffset
  471. buttonup
  472. item2
  473. item1
  474. 6045,360
  475. stopbutton
  476. 4videolist,stopnow,counter,current_track
  477. sysLockscreen 
  478. tbkMci("close 
  479. wait","") 
  480. "tracknumber" 
  481. "00" 
  482. "tracknumbermin" 
  483. "00" 
  484. "tracknumbersec" 
  485. "00:00:00:00" 
  486. "currentpos" 
  487. "Pause" 
  488. "pausecover" 
  489. "playcover" 
  490. "stopsymbol" 
  491. "playsymbol" 
  492. playlistcover 
  493. "Midi Playlist" 
  494. "pausesymbol" 
  495. "Stopped" 
  496. "statusfield" 
  497. "tempo" 
  498. "MIDIPlay"
  499. buttonUp
  500. buttonUp
  501. buttondown
  502. close all wait
  503. tbkMci
  504. tracknumber
  505. tracknumbermin
  506. tracknumbersec
  507. 00:00:00:00
  508. currentpos
  509. Pause
  510. Pause
  511. pausecover
  512. playcover
  513. stopsymbol
  514. playsymbol
  515. Midi Playlist
  516. pausesymbol
  517. Stopped
  518. statusfield
  519. tempo
  520. MIDIPlay
  521. playlistcover
  522. videolist
  523. stopnow
  524. counter
  525. current_track
  526. R:PHYSSIZE
  527. xyoffset 
  528. item1 
  529. item2 
  530. p2 + 
  531. p2 + 
  532. buttondown
  533. buttonup
  534. buttondown
  535. item2
  536. item1
  537. xyoffset
  538. buttonup
  539. item2
  540. item1
  541. 6825,1095
  542. previousmidi
  543. vV:PHYSSIZE
  544. xyoffset 
  545. item1 
  546. item2 
  547. p2 + 
  548. p2 + 
  549. buttondown
  550. buttonup
  551. buttondown
  552. item2
  553. item1
  554. xyoffset
  555. buttonup
  556. item2
  557. item1
  558. 5805,1095
  559. nextmidi
  560. 4midilist2,videolist
  561. "statusfield" 
  562. /<> "Playing"
  563. tbkmci("close MIDIFile",
  564. buttonUp
  565. buttonUp
  566. statusfield
  567. Playing
  568. close MIDIFile
  569. tbkmci
  570. close MIDIFile
  571. tbkmci
  572. midilist2
  573. videolist
  574. J\:PHYSSIZE
  575. xyoffset 
  576. item1 
  577. item2 
  578. p2 + 
  579. p2 + 
  580. buttondown
  581. buttonup
  582. buttondown
  583. item2
  584. item1
  585. xyoffset
  586. buttonup
  587. item2
  588. item1
  589. 6195,1095
  590. `:PHYSSIZE
  591. midiplaylist
  592. 4warningtext,sender
  593. "videos" 
  594. "No Midi files 
  595. playlist. Please 
  596. Add MIDI File..." 
  597. selectedTextlines 
  598. popper1
  599. popper2
  600. "&" & 
  601. R <> 
  602. Bplaylistbox 
  603. buttonUp
  604. buttonUp
  605. videos
  606. buttondown
  607. No Midi files in playlist. Please select Add MIDI File...
  608. buttonUp
  609. warning
  610. videos
  611. buttonUp
  612. playlistbox
  613. popper2
  614. popper1
  615. videos
  616. warningtext
  617. sender
  618. "videos"
  619. buttonUp
  620. buttonUp
  621. videos
  622. fg:PHYSSIZE
  623. xyoffset 
  624. item1 
  625. item2 
  626. p2 + 
  627. p2 + 
  628. buttondown
  629. buttonup
  630. buttondown
  631. item2
  632. item1
  633. xyoffset
  634. buttonup
  635. item2
  636. item1
  637. 315,2100
  638. repeat
  639. buttonUp
  640. buttonUp
  641. repeat
  642. "videos"
  643. buttonUp
  644. buttonUp
  645. videos
  646. o:PHYSSIZE
  647. xyoffset 
  648. item1 
  649. item2 
  650. p2 + 
  651. p2 + 
  652. buttondown
  653. buttonup
  654. buttondown
  655. item2
  656. item1
  657. xyoffset
  658. buttonup
  659. item2
  660. item1
  661. 5895,1725
  662. buttonUp
  663. buttonUp
  664. "videos"
  665. buttonUp
  666. buttonUp
  667. videos
  668. @t:PHYSSIZE
  669. xyoffset 
  670. item1 
  671. item2 
  672. p2 + 
  673. p2 + 
  674. buttondown
  675. buttonup
  676. buttondown
  677. item2
  678. item1
  679. xyoffset
  680. buttonup
  681. item2
  682. item1
  683. playcover
  684. xx:PHYSSIZE
  685. repeatsymbol
  686. Fy:PHYSSIZE
  687. statusfield
  688. Stopped
  689. stopsymbol
  690. z:PHYSSIZE
  691. playsymbol
  692. d{:PHYSSIZE
  693. pausesymbol
  694. 0|:PHYSSIZE
  695. Playlist Total:
  696. playlisttotal
  697. tracknumber
  698. Current Selection:
  699. tracknumbermin
  700. tracknumber
  701. currentpos
  702. 00:00:00:00
  703. tracknumbersec
  704. tempo
  705. Tempo:
  706. addmidi
  707. :PHYSSIZE
  708. xyoffset 
  709. item1 
  710. item2 
  711. p2 + 
  712. p2 + 
  713. buttondown
  714. buttonup
  715. buttondown
  716. item2
  717. item1
  718. xyoffset
  719. buttonup
  720. item2
  721. item1
  722. 3270,240
  723. :PHYSSIZE
  724. :PHYSSIZE
  725. playlistcover
  726. :PHYSSIZE
  727. pausecover
  728. scott
  729. :PHYSSIZE
  730. currentselections
  731. 4selects,warningtext
  732. "videos" 
  733. "No Midi files 
  734. playlist. Please 
  735. Add MIDI File..." 
  736. selectedTextLines 
  737. "There are no 
  738. music
  739. "title" 
  740. & CRLF 
  741. Bselections 
  742. buttonUp
  743. buttonUp
  744. videos
  745. buttondown
  746. No Midi files in playlist. Please select Add MIDI File...
  747. buttonUp
  748. warning
  749. buttondown
  750. There are no MIDI files selected.
  751. buttonUp
  752. warning
  753. title
  754. buttonUp
  755. selections
  756. music
  757. videos
  758. selects
  759. warningtext
  760. "videos"
  761. buttonUp
  762. buttonUp
  763. videos
  764. :PHYSSIZE
  765. xyoffset 
  766. item1 
  767. item2 
  768. p2 + 
  769. p2 + 
  770. buttondown
  771. buttonup
  772. buttondown
  773. item2
  774. item1
  775. xyoffset
  776. buttonup
  777. item2
  778. item1
  779. 1335,2595
  780. loadwait
  781. Loading playlist, please wait....
  782. :PHYSSIZE
  783. videos
  784. -- trap 
  785. buttondown
  786. buttondown
  787. 4videolist,warningtext,play_indef,num_loops,current_track
  788. sysLockscreen 
  789. titlecon 
  790. ] <> 
  791. g <> ""
  792. tracknum
  793. ) > 32
  794. "path" 
  795. filename 
  796. "Please 
  797. a Midi File 
  798. "Pause" 
  799. "tracknumber" 
  800. playlistcover 
  801. xPlaylist" 
  802. "pausecover" 
  803. "playcover" 
  804. "playsymbol" 
  805. "pausesymbol" 
  806. "stopsymbol" 
  807. "Playing" 
  808. "statusfield" 
  809. tbkMci("close 
  810. wait","")
  811. " && 
  812. && "alias MIDIfile","")
  813. tbkmci("
  814. ] MIDIFile tempo","")
  815. 'ime 
  816. smpte 24","")
  817. Dlength","")
  818. "tracknumbermin" 
  819. "tracknumbersec" 
  820. buttonUp
  821.     buttonUp
  822. title
  823. title
  824. Please select a Midi File to play.
  825. buttonUp
  826. warning
  827. Pause
  828. tracknumber
  829. Midi Playlist
  830. pausecover
  831. playcover
  832. playsymbol
  833. pausesymbol
  834. stopsymbol
  835. Playing
  836. statusfield
  837. close all wait
  838. tbkMci
  839. alias MIDIfile
  840. tbkMci
  841. status MIDIFile tempo
  842. tbkmci
  843. tempo
  844. set MIDIFile time format smpte 24
  845. tbkmci
  846. status MIDIFile length
  847. tbkmci
  848. length
  849. length
  850. tracknumbermin
  851. length
  852. tracknumbersec
  853. play MIDIfile 
  854. tbkMci
  855. playlistcover
  856. filename
  857. tracknum
  858. titlecon
  859. videolist
  860. warningtext
  861. play_indef
  862. num_loops
  863. current_track
  864. title
  865. temp2
  866. length
  867. 4list_of_files
  868. init 
  869. dlgInit 
  870. dlgBox 
  871. H524288
  872. setValue(
  873. B,"listbox videolist",
  874. --DLL function
  875. retValue 
  876. dialog(
  877. getValue(
  878. Bokbutton") 
  879. temp2 
  880. textlineCount(
  881. tempval 
  882. "path" 
  883. jj = 1
  884. CRLF & 
  885. pathnumber
  886. "title" 
  887. k <> 
  888. kk = 1
  889. save_data
  890. buttonUp
  891. buttonUp
  892. dlgInit
  893. dlgBox
  894. listbox videolist
  895. setValue
  896. dialog
  897. button okbutton
  898. getValue
  899. title
  900. title
  901. title
  902. title
  903. save_data
  904. k:to1
  905. pathnumber
  906. j:to1
  907. tempval
  908. ui:to
  909. temp2
  910. retValue
  911. list_of_files
  912. 4filenameval,videonameval,nameoffile,warningtext,stopnow     
  913. "stopbutton" 
  914. OpenDlg("\", "*.
  915. g", "Choose a Midi 
  916. .", "Add MIDI File")
  917. [fileName
  918. num_letters
  919.  - 2) 
  920. * - 1) 
  921. a1 & a2 & a3 
  922. is_midi
  923.  <> "
  924.  <> "
  925. "You have chosen a non-
  926. B"videodescription" 
  927.  = ""
  928. must provide a 
  929. is_duplicate
  930.  = ""
  931. "title" 
  932. "path" 
  933.  CRLF & 
  934. : (" & 
  935.  & ") has been added." 
  936. "videos" 
  937.  "playlisttotal" 
  938. save_data
  939. Bdupdes 
  940. buttonUp
  941. is_duplicate
  942. buttonUp
  943. buttonUp
  944. stopbutton
  945. *.mid
  946. Choose a Midi file.
  947. Add MIDI File
  948. OpenDlg
  949. You have chosen a non-midi (MID) file.
  950. buttonUp
  951. warning
  952. buttonUp
  953. videodescription
  954. cancel
  955. You must provide a description.
  956. buttonUp
  957. warning
  958. is_duplicate
  959. cancel
  960. You must provide a description.
  961. buttonUp
  962. warning
  963. title
  964. title
  965. title
  966. MIDI File: (
  967. ) has been added.
  968. buttonUp
  969. warning
  970. title
  971. videos
  972. title
  973. playlisttotal
  974. save_data
  975. is_midi
  976. num_letters
  977. fileName
  978. filenameval
  979. videonameval
  980. nameoffile
  981. warningtext
  982. stopnow
  983. is_duplicate
  984. title
  985. title
  986. buttonUp
  987. buttonUp
  988. videodescription
  989. dupdes
  990. nameoffile
  991. 4playfullscreen,play_indef,num_loops,counter,stopnow,helpfile,current_track
  992. "midiplay.hlp"
  993. setmenu
  994. LinkDLL "Tbkwin.dll"
  995. INT POPMENU(WORD,STRING,
  996.  ScreenFromPage(
  997. ;xUnitsFromPixels (
  998. VyUnitsFromPixels (
  999. qxPixelsFromUnits (
  1000. yPixelsFromUnits (
  1001. yieldApp()
  1002. linkDLL "tbkdlg.
  1003. opendlg(
  1004. dialog(
  1005. setValue(
  1006. getValue(
  1007. X"tbkfile.
  1008. getCurrentdrive()
  1009. getCurrentDirectory(
  1010. setCurrentDirectory(
  1011. FileExists(
  1012.  tbkmci(
  1013. initStyle
  1014. get_directory_drive
  1015. read_data
  1016. video_error_check
  1017. settimer
  1018. "title" 
  1019. "videos" 
  1020. selectedtextlines 
  1021. "Stopped" 
  1022. "statusfield" 
  1023.  "playlisttotal" 
  1024. unlinkDLL "user"
  1025.  tbkwin.
  1026. hWnd 
  1027. sysClientHandle -- identifies 
  1028. which message 
  1029. be sent
  1030. nIDEvent 
  1031. integer used 
  1032. identify 
  1033. within your 
  1034.  (see setTimer)
  1035. killTimer(
  1036. setStyle -4-1
  1037. SetStyle pValue
  1038. 4sizefirst
  1039. -- This handler calls 
  1040. the Windows 3.x DLL, 
  1041. .exe,
  1042. !style 
  1043. *ToolBook 
  1044. e, modifies that
  1045. -- value, 
  1046. Fsets 
  1047. getWindowlong(
  1048. -- (hwnd,nIndex)
  1049. setWindowlong(
  1050. ),wNewWord)
  1051.     LONG GetTickCount()
  1052. MessageBox (
  1053. WinHelpIndex = 
  1054.  DWORD)
  1055. MoveWindow(
  1056. FindWindow(
  1057. ShowWindow(
  1058. Q SetTimer(
  1059. KillTimer(
  1060. getWindowLong(
  1061. ,-16)
  1062. -- Add/Remove a 
  1063. subtract one 
  1064. following values 
  1065. corresponding 
  1066. Maximize Box
  1067. Minimize 
  1068. Thick Frame
  1069. System Menu
  1070. Horz Scroll
  1071. Vert 
  1072. Dialog 
  1073. (128)
  1074. Border
  1075. (192)
  1076. Caption
  1077. 64+128.
  1078. Includes border 
  1079.  frame.}
  1080. (256)
  1081. (512)
  1082. Clip Children
  1083. (1024)
  1084. Siblings
  1085. (2048)
  1086. Disabled
  1087. (4096)
  1088. Visible
  1089. (8192)
  1090. (16384)
  1091. (32768)
  1092. Popup
  1093. hiWord 
  1094. y65536 -- replaced "/" operator 
  1095. y" - DRL 4/6/92
  1096. loWord 
  1097. k65536
  1098. (hiword * 65536) + (
  1099. setWindowLong(
  1100. ,-16,
  1101. properly resets 
  1102. 7450,3000
  1103. 10900,3000
  1104. MainWindow 
  1105. 15,18
  1106. c"Text" 
  1107. c"Edit" 
  1108. c"&Midi" 
  1109. c"&Settings" 
  1110. "&Exit" 
  1111. R Playlist" 
  1112.  Selections..." 
  1113. "&Add 
  1114. ..." 
  1115. ..." 
  1116.  &Next" 
  1117.  Previous" 
  1118. "Pa&use" 
  1119. "&Repeat" 
  1120. "&Auto 
  1121. "&Contents
  1122. "&How To Use 
  1123. "&About MIDIPlay..." 
  1124. "Pause" 
  1125. aboutmidiplay
  1126. addvideo
  1127. removevideo
  1128. currentselections
  1129. winHelpIndex(
  1130. , "winhelp.
  1131. ,3, 0)
  1132. playvideo
  1133. playit 
  1134. closevideo
  1135. stopbutton 
  1136. contentsf1
  1137. pathname
  1138. 3, 0) 
  1139. setup
  1140. fileclosed 
  1141. firsttime 
  1142. loadwait
  1143. .atm" 
  1144. = "1"
  1145. save_data
  1146. titledat
  1147. pathdat
  1148. i = 1
  1149. i = 1
  1150. getCurrentDrive()
  1151. driveletter
  1152.  & ":\" & 
  1153. 0 = keyEnter
  1154. nextmidi 
  1155. previousmidi 
  1156. repeat
  1157. "playcover" 
  1158. USER"
  1159. WinHelpQuit = 
  1160. winHelpQuit(
  1161. , "",2,0)
  1162. 2 = HELP_QUIT
  1163.  "toolbook" 
  1164. 4list_of_files
  1165. stackname 
  1166. filenametest 
  1167. putbefore 
  1168. <> 1 
  1169. Berror_message 
  1170. tbkMMNotify 
  1171. ,op,dev
  1172. 4videolist,
  1173. + = "MIDIfile"
  1174. tbkMCI("
  1175. B"playbutton" 
  1176. sysLockscreen 
  1177. "pausecover" 
  1178. "playsymbol" 
  1179. "pausesymbol" 
  1180. "stopsymbol" 
  1181. playlistcover 
  1182. "tracknumber" 
  1183. "00" 
  1184. "tracknumbermin" 
  1185. "00" 
  1186. "tracknumbersec" 
  1187. "tempo" 
  1188. "00:00:00:00" 
  1189. "currentpos" 
  1190. "repeatsymbol" 
  1191. addmidifile
  1192. removemidifile
  1193. playnext
  1194. playprevious
  1195. /= "Playing"
  1196.  MIDIFile 
  1197. ","")
  1198. midiplaylist
  1199. togglestatus
  1200. autominimize
  1201. arbitrary 
  1202. wElapse 
  1203. -- specifies 
  1204. elapsed 
  1205. milliseconds) between 
  1206.  events
  1207. lpTimerFunc 
  1208. parameter 
  1209. contentsf1
  1210. aboutmidiplay
  1211. setup
  1212. sizetopage
  1213. read_data
  1214. enterBook
  1215. save_data
  1216. addvideo
  1217. get_directory_drive
  1218. keyDown
  1219. initStyle
  1220. enterSystem
  1221. removevideo
  1222. video_error_check
  1223. pause
  1224. currentselections
  1225. tbkMMNotify
  1226. repeat
  1227. SetStyle
  1228. howtousehelp
  1229. addmidifile
  1230. removemidifile
  1231. leaveBook
  1232. playnext
  1233. playprevious
  1234. playvideo
  1235. midiplaylist
  1236. closevideo
  1237. togglestatus
  1238. setmenu
  1239. autominimize
  1240. settimer
  1241. enterBook
  1242. midiplay.hlp
  1243. Ksetmenu
  1244. Tbkwin.dll
  1245. POPMENU
  1246. ScreenFromPage
  1247. xUnitsFromPixels
  1248. yUnitsFromPixels
  1249. xPixelsFromUnits
  1250. yPixelsFromUnits
  1251. yieldApp
  1252. tbkdlg.dll
  1253. opendlg
  1254.                     
  1255. dialog
  1256. setValue
  1257. getValue
  1258. tbkfile.dll
  1259. getCurrentdrive
  1260. getCurrentDirectory
  1261. setCurrentDirectory
  1262. FileExists
  1263. midiplay.dat
  1264. tbkmci
  1265. initStyle
  1266. +Sget_directory_drive
  1267. nread_data
  1268. video_error_check
  1269. xsettimer
  1270. title
  1271. videos
  1272. videos
  1273. Stopped
  1274. statusfield
  1275. title
  1276. playlisttotal
  1277. playfullscreen
  1278. play_indef
  1279. num_loops
  1280. counter
  1281. stopnow
  1282. helpfile
  1283. current_track
  1284. leaveBook
  1285. midiplay.dat
  1286. tbkdlg.dll
  1287. tbkwin.dll
  1288. tbkfile.dll
  1289. killTimer
  1290. nIDEvent
  1291. initStyle
  1292. setStyle
  1293. SetStyle
  1294. getWindowlong
  1295. setWindowlong
  1296. GetTickCount
  1297. MessageBox
  1298. WinHelpIndex
  1299. WinHelp
  1300. MoveWindow
  1301. FindWindow
  1302. ShowWindow
  1303. SetTimer
  1304. SetTimer
  1305. KillTimer
  1306. getWindowLong
  1307. hiword
  1308. setWindowLong
  1309. sizeToPage
  1310. loWord
  1311. hiWord
  1312. style
  1313. sizefirst
  1314. pValue
  1315. setmenu
  1316. &File
  1317. &Midi
  1318. &Settings
  1319. &Help
  1320. &Exit
  1321. &Midi Playlist
  1322. &Current Selections...
  1323. &Add Midi File...
  1324. &Remove Midi File...
  1325. &Play
  1326. Play &Next
  1327. P&lay Previous
  1328. Pa&use
  1329. &Stop
  1330. &Repeat
  1331. Settings
  1332. Settings
  1333. &Auto Minimize
  1334. Settings
  1335. &Contents         F1
  1336. &How To Use Help
  1337. &About MIDIPlay...
  1338. Pause
  1339. aboutmidiplay
  1340. buttondown
  1341. buttonUp
  1342. about
  1343. addvideo
  1344. buttonUp
  1345. addvideo
  1346. removevideo
  1347. buttonUp
  1348. removevideo
  1349. currentselections
  1350. buttonUp
  1351. currentselections
  1352. howtousehelp
  1353. winhelp.hlp
  1354. winHelpIndex
  1355. playvideo
  1356. buttonUp
  1357. playit
  1358. closevideo
  1359. buttonUp
  1360. stopbutton
  1361. contentsf1
  1362. setCurrentDirectory
  1363. winHelpIndex
  1364. helpfile
  1365. pathname
  1366. setup
  1367. buttonUp
  1368. setup
  1369. sizetopage
  1370. sizefirst
  1371. read_data
  1372. title.dat
  1373. title.dat
  1374. title.dat
  1375. title
  1376. title.dat
  1377. title
  1378. title.dat
  1379. path.dat
  1380. path.dat
  1381. path.dat
  1382. path.dat
  1383. path.dat
  1384. midi.atm
  1385. midi.atm
  1386. Auto Minimize
  1387. Auto Minimize
  1388. midi.atm
  1389. loadwait
  1390. firsttime
  1391. fileclosed
  1392. save_data
  1393. setCurrentDirectory
  1394. title.dat
  1395. title
  1396. title
  1397. title.dat
  1398. title.dat
  1399. path.dat
  1400. path.dat
  1401. path.dat
  1402. pathdat
  1403. titledat
  1404. pathname
  1405. get_directory_drive
  1406. getCurrentDrive
  1407. getCurrentDirectory
  1408. driveletter
  1409. pathname
  1410. keyDown
  1411. buttonUp
  1412. stopbutton
  1413. contentsf1
  1414. buttondown
  1415. buttonUp
  1416. buttonUp
  1417. pause
  1418. videos
  1419. repeat
  1420. videos
  1421. playcover
  1422. buttonUp
  1423. playit
  1424. previousmidi
  1425. nextmidi
  1426. WinHelpQuit
  1427. WinHelp
  1428. winHelpQuit
  1429. enterSystem
  1430. sysWindowHandle
  1431. toolbook
  1432. video_error_check
  1433. FileExists
  1434. buttonUp
  1435. error_message
  1436. putbefore
  1437. filenametest
  1438. stackname
  1439. list_of_files
  1440. pause
  1441. buttonUp
  1442. pause
  1443. tbkMMNotify
  1444. MIDIfile
  1445. active,checked
  1446. close MIDIfile
  1447. tbkMCI
  1448. buttonUp
  1449. playbutton
  1450. buttonUp
  1451. playit
  1452. buttonUp
  1453. playit
  1454. Pause
  1455. playcover
  1456. pausecover
  1457. playsymbol
  1458. pausesymbol
  1459. Stopped
  1460. statusfield
  1461. stopsymbol
  1462. Midi Playlist
  1463. tracknumber
  1464. tracknumbermin
  1465. tracknumbersec
  1466. tempo
  1467. 00:00:00:00
  1468. currentpos
  1469. MIDIPlay
  1470. playlistcover
  1471. Pause
  1472. videolist
  1473. counter
  1474. play_indef
  1475. num_loops
  1476. stopnow
  1477. current_track
  1478. repeat
  1479. active,unchecked
  1480. Repeat
  1481. repeatsymbol
  1482. Repeat
  1483. repeatsymbol
  1484. repeat
  1485. play_indef
  1486. buttonUp
  1487. playit
  1488. buttonUp
  1489. stopbutton
  1490. addmidifile
  1491. buttonUp
  1492. addmidi
  1493. removemidifile
  1494. buttonUp
  1495. removemidi
  1496. playnext
  1497. buttonUp
  1498. nextmidi
  1499. playprevious
  1500. buttonUp
  1501. previousmidi
  1502. statusfield
  1503. Playing
  1504. status MIDIFile position
  1505. tbkmci
  1506. currentpos
  1507. midiplaylist
  1508. buttonUp
  1509. midiplaylist
  1510. togglestatus
  1511. autominimize
  1512. setCurrentDirectory
  1513. midi.atm
  1514. active,unchecked
  1515. Auto Minimize
  1516. midi.atm
  1517. Auto Minimize
  1518. midi.atm
  1519. midi.atm
  1520. autominimize
  1521. pathname
  1522. settimer
  1523. SetTimer
  1524. lpTimerFunc
  1525. wElapse
  1526. nIDEvent
  1527. 4warningtext,tempval,stopnow
  1528. "stopbutton" 
  1529. "videos" 
  1530. "There are no MIDI files 
  1531. B"removeselect" 
  1532. B"warning2" 
  1533. "title" 
  1534. jj = 1
  1535. CRLF & 
  1536. pathnumber
  1537. k <> 
  1538. kk = 1
  1539. : (" & 
  1540.  & ") has been removed." 
  1541.  "playlisttotal" 
  1542. selectedTextlines 
  1543. save_data
  1544. buttonUp
  1545. 2    buttonUp
  1546. buttonUp
  1547. stopbutton
  1548. videos
  1549. There are no MIDI files to remove.
  1550. buttonUp
  1551. warning
  1552. buttonUp
  1553. removeselect
  1554. buttonUp
  1555. warning2
  1556. title
  1557. title
  1558. title
  1559. title
  1560. MIDI file: (
  1561. ) has been removed.
  1562. buttonUp
  1563. warning
  1564. title
  1565. videos
  1566. title
  1567. playlisttotal
  1568. videos
  1569. save_data
  1570. pathnumber
  1571. warningtext
  1572. tempval
  1573. stopnow
  1574. 4current_track,videolist,midilist2,selection_total
  1575. "statusfield" 
  1576. /<> "Playing"
  1577. ? = 1
  1578. tbkmci("close MIDIFile",
  1579.  - 2)
  1580. "path" 
  1581. filename
  1582. tbkMci("
  1583. " && 
  1584.  && "alias MIDIfile","")
  1585.  - 1)
  1586. " && 
  1587.  && "
  1588. dummy 
  1589.  - 2)
  1590. " && 
  1591.  && "
  1592. buttonUp
  1593. buttonUp
  1594. statusfield
  1595. Playing
  1596. close MIDIFile
  1597. tbkmci
  1598. close MIDIFile
  1599. tbkmci
  1600. alias MIDIfile
  1601. tbkMci
  1602. close MIDIFile
  1603. tbkmci
  1604. alias MIDIfile
  1605. tbkMci
  1606. close MIDIFile
  1607. tbkmci
  1608. close MIDIFile
  1609. tbkmci
  1610. alias MIDIfile
  1611. tbkMci
  1612. close MIDIFile
  1613. tbkmci
  1614. dummy
  1615. filename
  1616. i:to1
  1617. current_track
  1618. videolist
  1619. midilist2
  1620. selection_total
  1621. midiplay.ico
  1622. wwwwwwwwwwwwwww
  1623.